home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tl.d64 / example1 (.txt) < prev    next >
Commodore BASIC  |  2008-11-26  |  178b  |  11 lines
  1. 10 G:CLEAR; FULL; BORDER 14
  2. 20 *LOOP
  3. 30 C:L=L+1
  4. 40 G:DRAW L; TURN 92
  5. 50 J(L<220):*LOOP
  6. 60 G:GOTO 0,0; TURNTO 0
  7. 70 C:R=RND(1)*16
  8. 80 G:PEN R; BORDER 15-R
  9. 90 C:L=0
  10. 100 J:*LOOP
  11.